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Estimados lectores en este pequeño espacio deseamos hacerles saber 
que hemos recibidos muchas cartas y como todas ellas se refieren 
al mismo tema: suscripcion, les comunicamos, que es algo que no 
habiamos tenido en cuenta. Pero debido a sus pedidos entrara en 
discusion. Todos aquellos que deseen la edicion anterior podran 
adquirirla en el mismo local donde adquirio la presente. 
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EL BASIC 





Las instrúcciones que Ud. escribe, para que ejecute su 
computador SINCLAIR, estan en un lenguaje de programacion llamado 
"BASIC '(Beginner*s All-Purpose Symbolic Instruccion Cade), que 
utiliza palabras inglesas y expresiones algebraicas. Originalmente 
fue creado por los profesores John G. Kemeny y Thomas E. Kurtz del 
Colegio Dartmonth, New Hampshire — U.S.A.-, alrededor de 1963. 

Ferfeccionamientos posteriores le brindaron caracteristicas 
adicionales, obteniendo asi un lenguaje comunmente llamado BASIC 
EXTENDIDO. 

El BASIC se ha convertido en el lenguaje de computacion mas 
ampliamente utilizado por principiantes y aficionados: Esto es 
debido,en, gran parte, a que esta muy bien adaptado para su uso 
directo; cuando el usuario escribe algo la computadora enseguida 


lo ejecuta. 
Entre las caracteristicas importantes se encuentran! 


* se puede escribir una gran variedad de algoritmos, y 
aunque se usa principalmente para calculos cientificos y de 
ingenieria, hay otros muchos tipos de algoritmos que pueden 
expresarse satisfactoriamente en BASIC. 


| * El lenguaje se ha ideado para ser usado con equipos tales 
como teletipos y teclados de maquina de escribir conectadas a una 
computadora. El BASIC permite que el programador conserve los 
programas en dispositivos auxiliares de almacenamiento, para hacer 
posteriores cambios, O corregir errores en cualquiera de ellos sin 
necesidad de reimprimir el texto. 


* Las reglas o la gramatica del lenguaje se definen 
exactamente de manera que un algoritmo en BASIC signifique lo 
mismo para cualquiera que lo lea. 


* BASIC puede aplicarse a muchos tipos de computadores * 
digitales, o sea, que hay muchos computadores que pueden 
programarse para aceptar algoritmos escritos en el, para 
convertirlos automaticamente en secuencias de instrucciones de 
| computadora que luego pueden ejecutarse. 


| Muchas revistas sobre computadores personales publicaron 
programas en BASIC y vale la pena darles un vistazo por las ideas 
expuestas. Es casi seguro que Ud. tendra que adaptarlos 

| ligeramente porque cada computador que usa el lenguaje BASIC tiene 
su propio *dialecto” diferente a todos los restantes. 
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COMENTARIO 


Todos los programas que no usen codigo de maquina O 


direcciones de memoria en su ejecucion pueden ser facilmente 


adaptados ya sea de 48k a 16k o viceversa. 
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1 
3 
5 AND Xx<21 
- (INR, 
18 AND 31 
- [INR 
15 
20 
z 25 
! 30 
e 35 110 
40 
42 l 
45. 
50 o sa 
55 05 
59 ET T=INT (RND=* 
B+3) 
sl 2 THEN LET T=INT (RND* 
3+3) 
52 THEN LET T=INT (RND* 
1143) 
55 LET +TiL 
57 IF H>21 THEN LET H 
588 IF _H<1 THEN LET H= 
70 LE =Y4+TÉ0 
72 IF I:<1 THEN LET_I= 
73 15 _1>531 TMEN LET I=31 
4 75 GOTO_S 
30 PRINT AT_LH,I “¡AT 4,1: 
AT m1; GATA I3"M "¡ATA 1; 











INSTRUCCIONES? 


=P 


EPRINCIPIANTE" 
EMOMATENR 
EMPROFESIONAL 




















75 1000/1500 TK 83/ TK 85 


LAT" AND S 
2) +1"CRUNC 


THEN GOTO 181 


"*EGAME DUER 


SEE a 





na Dó= po] LA 
Ds=D5+D8 
T x=1 


mu 


i ; 
BRINT AT EF 

IF -P=0 THEN GOTO 

IF-E=5 THEN GOTO 

P=0 THEN G0TO 57 
P:30 THEN. LET $T 
E«c>S THEN LET 


E=5 AND 
P=0 AND 








ET PANTALLA 








3;"Presione 








209 te DI? 
TnK EYS$ 


AND 
1010 IF X+AID1>2 Es? óR X+A 1D) 41 ¿8 
HEN _LET D=4 
1020 IF Y+B(D)<=N THEN 60 SUB 15 











puja] 

1030 LET T=T+1: PRINT AT 

1040 DRY AID, BID): 

1: LET V=Y+B4D! 

1059 60 7% 1000 

1500 LET_ON=N-30: IF N=-30 THEN G 
o_To 2090 

15905 LET 0O=(175-N! /30-1 

1519 IF N:<0 THEN_LET N=0 

1520 IF X>=F (Di AND x<=F(01+16 T 
HEN POKE_ 32031,2: RANDOMIZE USR 

32032: RETURN 

1539 BEEP_.2,-3: BEEP .5.-5: LET 





5 1 
2000 FOR G=1 TO 20 
PORE ¿bn E RAÑDONI2 

¿_NEXT_1: NE? 

“PRINT AT 9,17 E iEfios > 
INPUT "mismo nivel 15, 

: yEET CHRS DE_a5: 
THEN *RESTÓRE ES 
0: CLS AN 


O RANDOMIZE USA 
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Los programas de Ski son 
tipicos en los juegos de 
computadora. Este es bastante 
rapido e incluye gran 
diversidad de opciones.Como es 
logico, debe "deslizarse" con 
energia intentando pasar entre 
los postes. Para ir a la 
izquierda utilice el 5 y para 
ir a la derecha el 8.Estas 
teclas le permiten descender 
en direccion hacia las 
banderas y se necesita 
bastante habilidad para bajar 
correctamente. Preparese para 
las inclemencias del tiempo y 
decidase.!Los accidentes son 
minimos! 





E AAA 
CONCEPTOS BASICOS DE COMPUTOS 





Una computadora puede ser convenientemente considerada como 
una " maquina que realiza transformaciones numericas", como 
describe la figura, cuyos datos no necesariamente deben ser 


numericos. 


ENTRADA DATO SALIDA DATO 





Sin embargo, el encepto de computo, generalmente es 
presentado a traves del uso de numeros pues la mayoria de la gente 
esta familiarizada con dicho uso. 


El proceso de computo involucra tres pasos basicos! 

1) ENTRADA: por la cual el dato, sobre el que se realizara el 
computo, es ingresado en la maquina. 

2) COMPUTO: mediante el cual el dato es transformado. 

3) SALIDA: por la cual el resultado del computo se hace 
disponible para su posterior uso. 


ENTRADA OPERACION 


ADICION 





En general una computadora puede ser considerada como una 
"caja negra" que ejecuta una operacion "bien definida" sobre datos 
de entrada y que produce datos de salida apropiados. 

Considerar a la computadora como uña "caja negra", implica 
reconocer su capacidad de operar en forma automatica, es decir, 
sin intervencion humana, al menos en operaciones elementales, 
tales como adicion y division. Esta es, en efecto, la manera en 
que opera, y sirve para distinguir una computadora de una simple 
calculadora. 


El procedimiento por el cual el computo es ejecutado puede 
ser resumido como sigue! 

1) Almacenamiento de informacion; tanto el programa como los 
datos de entrada. 

2) Procesamiento de informacion: cada operacion es ejecutada 
tomando los valores de los datos almacenados, guardando luego los 
resultados. 
lado: cada instruccion es 
s de tomar la proxima. 


El proceso de computo es contro 
leida, interpretada y ejecutada ante 
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GRAFICO DE BARRAS - 


1 REM ++rr rr ErEFRRAFEREARARA 

DEM **GRAFI DE BARRAS ++ 
REM ++ 1 + 
E FERIFIARRARAR RARA ERE 
23000 
























GOTO 





: TAEN 











AND AS 11: 


DD 





Dam 
azAA 
7 ANA 
An Cs 
pra 
pone Dem]. IO 
> EN 
Am 


IA A TA 








¿0NDZ DN 
EP 






a 
5] 
a pr 


¡5AVE) + 


OR LEN Bá=1 T 


JS] 
1. D 15 


“ARCHIVO: 





2.0: 2HR5 


Este programa puede ser 
utilizado como buena ayuda 
para representar la marcha de 
sus negocios o bien para la 
preparacion de reportes 
ecritos. Puede conservar 
hasta 9 reportes, conteniendo 
c/u los valores 
correspondientes a c/mes y 
puede graficar simultaneamente 
hasta 3 de estos reportes. 
Otra ventaja es que cualquiera 
de estos tres reportes puede 
ser reemplazado por cualquier 
otro sin que esto modifique 
Yós otros dos. Diferentes 
grupos de archivos pueden ser 
grabados bajo nombres 
diferentes. Cuando el 
programa se inicia aparecera 
el cursor L 





prrrrora 





a 
3 


JoJA DND 


NAAA SA ATA A A A Wi A 








TS 1000/1500 






se A AT 4,055 

530 T 

si0 

09 

vl0 "A" OR (AGD) > "1 
Sl AND ABI2) <> "TO T 


=CODE AS 12)-3 

PRINT AT 14,0;5 OménE>" 
INPUT NIG) 

PRINT AT 14,0;N$(G)1,A7 15,0 
RATO" . 

0 PRINT "PARA" ¿AT .18,0;"MES:" 
Q FOR A=1 TO_1 


500000005 - 
¿Le 
mm 
A 


2 
70 -PRINT AT_19,0:;A;"?" 
30 INPUT -DiG, Ar 
NEXT_A 


Y; "NUEVO VALOR 


RS AS rd 


DONE RR Rooo 
6000 






MN RRA ERARIRR- ARMAR TIE 


E BS TO =55 
29 PRINT_AT 18,0;"NUEVO";AT 19 
On 
10 INPUT B% 
5420 LET Té=Z 


5 
ES IF LEN Bs>32 THEN LET 5$=55 
442 LEr TS (133-LEN B$)/2 TO )=B 


5450 PRINT_AT 20,9;T3 
so0TO_ 5200 
5000 REM GRAFICA (PLOT) 
5010 IF A$S(2)<"A" OR ASI2)>"1" T 
HEN GOTO 1900 +» 
5020 LET G=CO0DE AS 12) -37 
LET P=C0DE ar EBE car 
50409 PRINT AT_44P, 2iN$ 16) 
5059 FOR M1 TO_12 
56050 _LET B=2+INT (D[G,M) +40 VAL 
M5+,5) 
IF _B>41 THEN LET B=41 
6959 LET D=P+11+4+M 
5099 GOSUB 109 
5109 NEXT mM 
51109 GOTO 1000) 
3990 REM 


'"w 

a 

P 

5 

E 

La) 

z 
TIUNOZIA 





30939 G0TO 2008 
RUN 
3500 SAVE "GRAF sag" 


TK 83 TR 85 


Alli Ud. podra entrar: 
EM- para modificar el 
valor maximo del grafico 
. Esto altera el factor 
escala. 


ET- cambia el titulo en 
el tope de la pantalla 


C- borra cual quier 
grafico de pantalla 


S- graba el programa con 
el archivo de datos 
utilizando el titulo 
mostrado en el tope de la 
pantalla 


EA a El-— para ingresar 
datos en cualquiera de 
los nueve archivos 
posibles (desde A a 1 
tambien para cambiar los 
datos existentes. 


Para graficar alguno de 
los 9 archivos entre el 
numero 1, 2 0 3, teniendo 
en cuanta que estos 
numeros se corresponden 
con las barras ubicadas a 
la izquierda medio o 
derecha, seguido por la 
letra que corresponde al 
archivo deseado. Por 
ejemplo para graficar el 

“contenido del archivo B 

- del lado izquierdo 
ingrese "1B" Si su ano se 
inicia en un mes distinto 
de Enero, cambie L$(linea 
9080) en su gusto. 


e 5 ———=—= 


CORRECCIONES DE LA EDICION ANTERIOR 


En el programa METEOROS 11 en la parte de assembler cambiar 


en la direccion 164644 el codigo 194 por 202 





Quiere Ud, llegar a la cima 
del exito. la fama y la 
fortuna? Bueno, nosotros no 
podemos ayudarlo a lograr tal 
objetivo pero aqui tiene un 
juego para testear su abilidad 
y destreza. Cuando ejecute el 
programa (RUN) la computadora 
una escalera con numeros desde 
O a 9. Luego la computadora 


elige un numero entre 0 y 99 y 


luego vera por ejemplo 63 S o 












Do 






9: ¿PRIÍN 
Si 
3 o 
2 ET_q=s0: FOR u=i T 
1 A 
q+2: LET 


w=w-1; NEXT _u 
PRINT AT 4,3," MN" 
INK 4 

PRINT AT 


INK 








4 
E 
5 
5 
z 


INK Y 
PRINT aT 
INK 1 
PRINT AT 






















(RNDF931 
FLASH 1; INK 


GO TO 00 








T3 2088 SPECTRUM 









THEN PRINT_AT 14, 
Bljdo LET_j=j- 


ÓN PRINT_AT 12, 


2$="0"_ THEN PRINT 
TNUERSE 1ib(j): L 


N_PRINT_AT: 12, 
PAPER 5, INR 


5" THEN-PRINT-AT 5.3 
bij) 








NK 3 
F 3%="7" TAEN PRINT_AT +,23 
"e ANJERSE 255 (415 LET J=y-1 
150 IF a$="5" THEN_PRINT AT 2,3 
¡CINUERSE 1;bty): LET ¿si-1 
151 INR 1 
158 IF ak="9" THEN PRINT_AT 0.5 
TN LiD(j? LET jej-l 
153 INUER 
154 NEXT 
155 FOR s 19 
155 IF bí THEN 60 TO 179 
188 NEXT 
180 NEXT 
161 b b12) THEN 00 TO 159 
162 b bí4i THEN 60 TO 1869 
163 IF b b(5) THEN 60 TO 163 
164 S b(3) THEN 60_TO_163 
¿16s b B(10)- THEN 60 TO 16 
158 G5_TO ¿70 
169 FLASH 1: BRINT AT_10, 
o TRATE DE NUEVO, PIENSO auE yÓ 
. HA HECHO UN ERROR! !: BEEP 10, 
l44: FLASH 0: AU 
170 INK 9: PAPER 4: BORDER 3; £ 
LS: FOR V=1 TO 20: BEEP .1,V:iN 


xT $“ 

200 CLS FLASH 1: PENE AT 19, 

8;Usu puntaje fue ” 

201 IF y>=8 THEN PRINT AT pza 

¿UBIEN HECHO?! 1" DAR 9=1 TO-20 
BEEP_.05,9: NEXT 

210 FLASH 0 

220 INK 0: PRINT AT AO 2; Ea, 





o > ED  INKEY THEN 57 
¿ze es AT_21, ESIONE Y_P 
¿ N_PARA io" IF INKEY 





Pe n* ón STOP 
225 IF INKEYS= 
2398 50 TO 220 


Es decir que el numero que 


THEN RUN 2 


eligio es 63 y espera que 
Ud.tipee Si o No. Si tipea No 
la computadora eligira otro 
numero para Ud. pero perdera 


un punto en su score 
¡_A A — 





Bi) LET Jaja, 


¿Q00»PARER Ez 
OMEUSUARIO 
TO 

1.70 


RDER 2: € 
vin, TRAD 
H 1¡AT 10 


Le 


Pe E 
00003000 


1097 





1010 SRINT AT 0,7: "+++ INSTRUCCIO 


4% 

1020 PRINT 

1030 INK 9: PRINT 

dora eligira 19 numeros 

es Ud. tendra que color 

era en orden, 
stara ai com 

9 el mas al 

nal. Cuando Ud. vea 

one una tecla del Q 















eros sobre la escal 


cho _uA_ muy buen punt 

Q PRINT 

5 FLASH 1 

Q PRINT AT 20,5; “PRESIONE CUA 
VIER TECLA” ¿AT 21,11; 

"PARA _ COMENZAR 

37 PAUSE Y 

3 FLASH O 

950 TO 2 


Si en cambio tipea Si la 
computadora imprimira: "EN QUE 
LUGAR UBICA EL NRO. 63 (0a 
9)?" Todo lo que Ud. tiene que 
hacer es secribir un numero 
entre 0 y 9.El objeto del 
juego es poner la mayor 
cantidad de numeros en orden 
ascendente. Rechazar numeros 
le quita puntos y las 
decisiones incorrectas limitan 
futuras elecciones . Su score 
se inicia en 10 y lo mejor que 


hemos hecho 83 veamos si puede 


mejorarlo! 











> ale. ale dat 5 


a] 


OO 
pa] 





Ama a 


222 lu Diz 
Ma 0 A A 







mm 






=159 aEñEn,6 
036 












IF INKEYS="" AND RS=1 THEN 
Bos25 


To 
3 THEN_LET 
PRINT AT 20,30;" 





S05suB. 1000 
IF R7<>1 THEN RETURN 





LET SM=sH- 1 
550 IF S5H«0 THEN GOTO 1000 
590 PRINT AT 12,30;5H 
509 RETURN 

1005 PRINT AT RS,R6; 

1019 PRINT AT 5 11; 

10915 FOR L=1 TO 

















oso PRINT AT da; SL; : A 
ias PRINT AT 11,12;" qa3" 
1040 PRINT AT 12,10; 14; 
qe? PRINT AT dE" 
1050 PRINT_AT 18; 
¡AT 14,8; E 
PRINT_AT AB 15" 
AT PU > Fo E 
NT A ¡TAB 17 
"SAT 16,43" “¡TAB 17;* 
(e ha 


AT 19. 
20,8; 


PRINT_AT 19, 
"¡AT 20,9 


IF R?7<>1 THEN PRINT AT 1011 
RETURN 





















> 


T3 1009/1509 


4 
x 
o 
17 
E 
ce 
1) 



























1220 sLO6w 

1230 NEXT F 

1240 NEXT_L 

1242 PRINT AT 10,11; SCORE 

1245 If 59:20 THEN RETUR o 
247 . 

2019 P "PRESS p 

ARA_OTR ms Pp 

gaza IF THEN RUN R 

2030 5 9 

7000 43 

S"¡ AT 4 E 
AE E 6 

"DE 1 s 
ARA ; 
10 
20 P. 
8 5 
15 a] 
20 A 

5=20 


ABCDEFGH TI IRLMNOPORS TULA Z 





F THEN LET B$= 
INT AT INT (RND+*20 


SUGDNE 





INT 





RHIXi=zA 
10 THEN LET Ns="E'"+CHA 


THEN LET N%=CHR% INT 
+CHRS (N-LINT (N-10)% 


N:<31 THEN LET U=INT ((N- 








160 PRINT AT "PRESIONE" "N" 
PARA VER UN_NR 


170 PRINT AT ¿UBULTIMO NRO. 4) 
LLO BEBE cs N>30 AND Nc61 THEN LET Y 


INT AT 1/21; “RSALIDO ' (IN-1) 10 
(903 N>59g 





[5] 
EA] 
TN 





LET U=INT ((N- 








ALINEANDO EL CABEZAL 


Si Ud. noes un experto en audio, no sabra lo que implica el 
termino AZIMUTH aplicado a grabadores. Si lo sabe este articulole 
reforzara sus conocimientos. 

En ambos casos debera aprender algo importante sobre la 
computacion y el almacenamiento de programas en cinta. 

En terminos simples, AZIMUTH es una linea de direccion. 
Alineación de AZIMUTH relativo a grabadores, se refiere a la linea 
de direccion del entrehierro cuya ubicacion es la que se muestra 
en la figura. 


Fr6.£ 





Vemos que la ubicacion del entrehierro es vertical con 
respecto al desplazamiento de la cinta. Este es el verdadero 
problema. Es decir cuanto mas precisamente pueda mantener esa 
relacion a 90 grados mejor sera la respuesta en alta frecuencia de 
sus grabaciones. En grabaciones voz, la respuesta en alta 
frecuencia no es critica. Con musica, depende de su gusto por los 
altos tonos. Pero en cintas para computadoras, es de vital 
importancia que dichas altas frecuencias no se vean disminuidas... 
Su equipo debe responder perfectamente a ellas o en su defecto se 
perderan datos, y Ud. se encontrara en problemas. 

Claro, hasta aqui muchos afortunados podran decir: mis cintas 
graban y reproducen bien, entonces esto a mi para.que me sirve? 


Bien, aqui hay varias razones! 


Si Ud. munca intentara cambiar cintas con otras personas, 
entonces la alineacion del cabezal no le interesa. Las cintas que 
se graben y reproduzcan en el mismo grabador, a pesar de ser pobre 
la alineacion del cabezal, seran buenas. Pero trate de poner la 
cinta en otro grabador (que seguramente tendra distinta 
alineacion) y vera disminuidas, o perdera completamente, las altas 
frecuencias. 

Si modifica la alineacion del cabezal para arreglarlo, 
entonces probablemente no pueda cargar los programas que habia 
grabado antes. 

Por ello, para obtener buenos Resultados, antes de proceder a 
la alineacion limpie y desmagnetice el cabezal. Claro, la 
pregunta es: como arreglo alineacion del cabezal”? 

algunas cias. tienen cintas de testeado que cumplen 
especificamente con esta funcion. 

En este cassette se encontrara con varios tonos anunciados * 
por su frecuencia. Comienza con tonos relativamente bajos e 
incrementa con cada testeado. Por ejemplos primer tono 500 
ciclos, luego 1000, 3000, 10000 o 15000. 











Ponga dicho cassette en su grabador y trate de oir los tonos 
despues de su inicio. 

Si esto ocurre en baja frecuencia, digamos 2000 ciclos, Ud. 
esta ante un problema; si esta' por encima de los 5000 la respuesta 
es buena. er] 

Debido a la gran variedad en el diseño de grabadores, es 
imposible cubrirlos a todos, por ello una ilustracion general 
permitira mostrarle donde ubicar determinadas piezas de ellos. El 
problema es tener acceso al tornill8 (E). 


Las figuras 9 y 10 son dibujos tipicos de grabadores sin el 
cassette; la primera muestra el cabezal retraido, es decir sin 
ninguna tecla apretada. La otra muestra como el cabezal se 
desplaza hacia el cassette cuando se presiona Play. 

Cuando el dabezal esta en dicha posicion Ud. podra ver el 
tornillo, el cual debera ajustar o no para variar la inclinacion! 








Otros grabadores como el dé la figura 11 tienen un orificio 
en la tapa y en algunos, dieho orificio esta debajo de una 
etiqueta metalica. 

Si no encuentra acceso al tornillo (E) le quedaran otras dos 
posibilidades, las cuales las recomendamos solamente a personas 
con experiencia. 

Una de ellas'es sacar el grabador de su caja y realizar el 
ajuste, la otra es hacer el orificio, pero ojo! tenga cuidado. 

Para ajustar el AZIMUTH: ponga el cassette en test con el 
tono mas alto que Ud. pueda escuchar. 

Mientras esta funcionando, ajuste el cabezal al punto que le 
de el volumen mas alto. ¡Entonces ponga el tono que antes no pudo 
oir. Si ahora 106 oye entonces ajuste el cabezal para máximo 
volumen. Cuando logre volumen mas alto en el tono mas alto, 
entonces la alineacion de su cabezal es la correcta. Una nota de 
precaucion: no trate de hacer.su cinta de pruebas ni use una copia 
de otra. No puede estar seguro de la alineacion del cabezal con la 
que se hizo.Las figuras 2, 3,y¡4 ilustran la alineacion .corretta y 
las incorrectas lexageradas para mayor claridad). 








SINTAX 














OS 





Fra.2. 





El cabezal esta montado sobre una placa metalica (A) fija al 
poste (B) y ajustada por el tornillo (C). El resorte (B) reemplaza 
al poste (B) y ajustando o no (E) se hace la correccion. 


El ajuste de (E) no requiere mas de media vuelta en cual quier 
direccion. 


Veamos ahora caracteristicas de la señal 


ay 





Las figuras 5 a 8 representan la señal vista en el osciloscopio. 

En la figura 5 vemos una señal ideal con 6Y pico a pico de nivel. 
Veamos la perfeccion de dicha señal que sobrepasa en 2V la señal 

minima que puede acebtar la computadora. 






-18- 





ELA 








ARE 





Fs6.F 


La figura 6 representa la misma señal en el mismo grabador 
pero con diferente alineacion de cabezal. 

Note que las barras iniciales son mas cortas, estas son las 
altas frecuencias que se ven disminuidas, pero veamos que esta 
perdida de señal todavia no es importante ya que sobrepasa los av 
pico a pico. 

Veamos la figura 7, esta representa un caso mas severO. La 
señal del grabadór cae por debajo de 4V. Ahora Ud. pierde los 
datos y tiene problemas de **LOAD””. 

La figura 8 ilustra un caso totalmente critico. 

Otros problemas que pueden acceder son los referidos a la 
suciedad del cabezal, por eso se recomienda la limpieza periodica 





del mismo.' 














100 LET 3%=7 LunMarMieJueviesa 


es el dia de la 
INT "Dia",d 
IF LEN ds>2 





s el mes”? 







THEN 60 TO 120 
139 INPUT” 
mpleto; ej, 1 


140 LET Y 


G0_TO 13 
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Inagine que Ud. es el capitan de un barco que 
navega por el oceano rastreando un enenigo 
submarino. Su mision es ubicar y destruir a “dicho 
subaarino, lo que no es facil, considerando que 
Ud. no puede verlo. Una ayuda, por otra parte, la 
tiene en foraa de sonar; el-retardo y tono del eco 
de retorno es toda la informacion que posee y 
armado de esta informacion Ud. debe determinar 
donde cree que esta el submarino, calcular la 
carga de profundidad y arrojarla. Ahora, Ud no* 
debe suponer que el comandante del submarino-se 
quedara justamente ahi y esperara a ser cazado, no 
cree? Creane, no lo hara!.El disparara un torpedo 
contra su nave. Pero, atencion; su sistema de 
alerta hara rapidamente sonar una alarma.Podra Ud 
eludir el mortal arma? 

DETALLES: El programa provee una facilidad para 
que Ud. la utilice a modo de entretenisiento .Si 
presiona 0 al comienzo del: juego aparecera el 
submarino (sin torpedos) y el juego no movera el 
score. Necesitara solamente oprimir otra tecla 
para que comienzar el juego 





10 PRINT_AT 0,11; "SUBMARINO" » 
15 PLOT 88,157: DRA 72,0 
30 PRINT AT 10.2; "Por favor eS 
pere un momento" S 
25 60 SUB 2000: REM grafico de 
barco es ABC, y del Submaf. DE 


30 50 5UB 1000: REM instruscio 


ES 

40 LET_bs=3992 
100 PAPER 1: BORDER 
105. PAPER 7 “ 
110 FOR n=8 TO 127: PRINT " “; 
NEXT N- 
28 _LET 


An 


ul 
a 
? 
La 





1 
130 PRINT AT O3.Cc;"ABO 
140 LET ls=7+INT (RND+135 
150 LET cs=1+INT (RND+28) 
PRINT AT 8,0,"CARGAS DE PRO 


PRINT AT 0,17¡dc-3;AT 0,28; 
IF INKEYS="5"_ THEN 
NT AT y 


AT 3,c; 
PRINT AT 






310 IF INKEYS5="S"_ THEN LET sc=1 
sc+113h: PRINT AT OS,ci" “, LE 
An e=sc+1+1cc29): PRINT AT 3) ci "AB 


320 PRINT AT 0,28:Ssc 
Y IF sc,1000 AND h=1 THEN 60 
5 


4 (5O0R (11s-37+t2+1A 
310 IF INKEYSc>"1"- THEN 60 To 4 
PRINT AT OQ 





"130 BEEP_.1,48: FOR n=0 TO de5 
NEXT n: BEEP. .1,70-d$3 
450 LET k=ík+1)1%h: IF k>40+9 TH 


EN 60 : , 
faja] THEN LET sc=Í 














+idc75) 
¡dea ATADO 


Go TO 590 
'CTHEN 60 TO 70 


20: NEXT n: 60.T 


TO 3 


1F de=3 TH 











INT PAPER 1 







































ATel5 QiiPara ver 


k 

























ERTTÍFINK 25"0UERS, ¿USQPRINEE 8 
BEEP y A ET da E 
T CUIDADO! Mo tendrá score” 
1050 [PRINT AT emp; "rresione alg 
Buna 1 
? 1060/ % 
FOR 
1079 ¡PRIA Mis MEXT_ON 
1050 INTMAT 3,0; CPidado els 
Ubmarino To" "puede atacar; Ud. 
750 debera" "advertir el sonido del 
INA Torpedo" "cuando este venga haci 
a] E AS 
PE 1090 PRINT- Es su desicion si i 
30 ntenta "moverse o m0.” Quiza 
s es cuestion de suertes ' 
790 PRINT_ PAPER 2; INK ?; OVER 1100 PAUSE. 0: PRINT "ESte es el 
1, AT 3-1; IKHELO Sonido de advertencia" 
¿590 x+i THEN PRINT PARER 1119 FOR me9 TO 5: BEEP 50,50 
1; . TWATIR+L Cs-1;"K > NEXT On 
HAITI" 1120 "PRINT AT 20.22% 0 AT 21,12 
310 =21 THENOPRINT:PARER TU a 
1 r DOVER CIAT A+2 Cs rd: M 11: RETURN 
KI a 20 05 
520 SEEP_.50,40-x+4: NEXT x 20 TO-157 
330 PAUSE 100: COLS IF. sexbs+h 20 7 
THEN_LET bs=5sc 20 PORKE USAR CHRS 9+nm,3 
SS PLOT 56, 1. DRAW 152,0 20 9 
40 PRINT AT 2,7; "SUBMARINO DES 2045 RETURN 
LIDO" ¡AT 54 "STORE: "95 0. > 2059 DATA %, ,0,1,1,255,255,127 
5 PRINT. AT 10,4;2"Me jor SCORE E E 0,24,24,217,255,255,25 
$ 5,255 
(ul THEN LET_a5="Mal, Ju 2052 DATA 125,123,125,240,240,25 
A re, ' 60) TQ: 57 5,254,252 
A 2:30 ef GAL a$= "Junta da DATA 0,0,0,2,127,255/255,12 
L E. 7 z 
1 50 THEN_LET a3$=" 2051 _DATA 125,240,240,240,255,25 
ente.": 60:19 .879 5,255,255 = 
de 5(:100 THEN LET a$=" 2062 DATA 0,0,0,0,249,255,255,24 
n Hecno. si 
LET a Prueba de .Nuev Ea DATA 9,0,1258,126,125,125,0, 
0 PRINT AT 14,485 2050 DATA 20,382,72,32,148,1,52,5 
Q-PRINT AT 13,1;"Presione vals - 
la para Otro juegos” 2081 DATA 5,0,40,0,21,64,37,158 
SE 9: FOR A=b TO 18: BEE 2052.DATA 3,54,35,54,92,4,32,132 
2 2083 DATA 2,40,2,72,15,54,10,64 
co_To 10909 2054 DATA 54,16,54,5,130,40,65,5 
FOR m=0 TO 7: BEE a 
9,-19 . 5 2085 DATA 5,54,15,4,0,15,9,2 
210 PRINT LARGE 1; INK 63. DUER 20556 DATA 25,0,54,0,135,32,20,15 
nacida Ho ? 
> : PRINTOPAPER 1;AT n 3000 IF k1:<4 THEN BEER 150,50: L 
ET k1i=k1+1; 50 TO 600 
2010 LET q=.5+(RND“2): LET k=0: 
Thsirucciones LET k1=2 e 
AT 1052; 3020 LET ct=c-3+INT (ANDF5++ 30 
3050 IF c=ct OR c+1=ct OR c+2=ct 
“Ud. estaen U THEN_60_T0_3050 
y destruye lo 32498 60 TO 590. 
migos que no P 3 +, FOR n=4 





CLAS TECLAS; 1 


-Sonar 2-Soltar. cargas de profundidad 


5 y G-Moviaiento de la nave b y 7-Controla 
profundidad de las cargas 9-Tersinar juego.Aparece 
submarino. El puntaje aparece al terminar el 
juego en cuanto Ud. oprima alguna tecla y el 
proposito del juego es obtener el mayor nuaero 
puntos 'BUENA CACERIA 





3050 PRINT_AT 3,£:" 
9 TONI A TO 4d 


TO ¿ FOR _m=a 
3060 PRINT PAPER 1% INK 5; OVER 





1; AT n.ci "ABC 

3070 BEEP *.1,20-n+2: NEXT om: NEX 
A 

3232 EE 5c+20: ,LET- a=INT (RH 
4,5) - 

3890 LET 292: PRINT AT 3,c:%A 

60": 50.710.599 - 


NOTAS GRAFICAS: Los dibujos se forman poniendo en 
nodo grafico y apretando las teclas de las letras 
indicadas en los PRINT del programa. 
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IMPES 


RESTORE 5: FOR a=USR CHeRs 1 
USA CHAS 149) -1: READ B 
AB; NEXT A 
DATA 142,145, 
42,0,102, ,255,253 
6,58,55,124,124,56,55.18, 
6 255,125,126,560,24,5,5» 


,8,23,28 
>: “PAPER 7: INK 0: € 
LET M=0: 


D- 

Ok 
q. 
o 


> Xx 





ns 
ae 








r 
us 

meo ad 
a 
OS 
D- 
E] 
mm 
bo] 


a 





F 





mu 
mu 





Cm 
ma-J 


TO 4: FOR [=] 
="m': NEXT 6: NEXT 


13515 STEP 15 
pad > 


mm 


D 

de 
an ana 
UD 

Le 

o 
DADDY! 


NT 0, 
FAVOR EZCLANDO 
55 D El 


PRI 

¿ Mi 

FOR 

79 FOR X=1 TO 
ET 


7 3 

3901 S=INT -( AND*4) +1 
100 LET R=INT ( RND+13) +1 
a TF ASIS, RO om? THEN 60 To 


3 

120 IF xc10 THEN LET ass, Ro =CH 
RE 14394x) . . 
TF x>=10 THEN LET ASIS, ,Ri= 1 














122 

cóRs 74 AND x=11)+10HRS 75 AND % 
10) 4(CHRS 81 AND x=13)+(CHR$ 14 
4 AND_x=10) 

125 IF X=1 THEN _LET agis.ci="10" 
187 Lor agis+d,r =10B" AND d=i 
VINOS AND dar + 00D” AND d+ (E 

AND d=4) 

130 NEXT Xx 

140 NEXT D 

14S BEEP .5,20: PRINT AT 0,0; 

150 LET P=3_LET 0=2 

155 FOR 6=1 19 2 

150 PRINT PAPERS; INK 4; 

1; QUE INK 1;AT P-1,0 
7-2 a ón 

178 LET 96=INKEYS: 1F 9$="" 
N 609 T0_175 

177 PRINT AT P-1,0;" “¡AT P+2,0 


“iso IF INKEYS="a" OR INKEYS="0" 
THEN 60 TO 38 








17 Q THEN LET P=3 

220 LET D=9-2 AND INKEYS=" 
22 THEN LET_0=25: LET Pp 

THEN LET P=18 

INKEYS$="9" THEN 60 TO 20 


o TO_159 
G=2 AND A=P AND S=8 THEN 








c0 TO_16 HERAS 
Da TF CAS L(P-9)/5+1,0/2)="X" TH 
EN Go_TO 169 

Nos FOR k=8 TO 10 STEP 5: BEEP 


.008,k: NEXT_K 
297 1F G=1 THEN LET R=P: LET $= 


o 

410 PRINT AT P,0; AS INT IPL30/ 
51+5,0/2) : ea 
413 IF ASLINT (1623) /5145,0/2)= 
"0% OR ASÍINT 4 1P-3) /5)45,0/8)=" 
B" THEN_INK_2 

415 PRINT AT P+1,0;AS (INT ((P=3 
1 /51+5,0/2) 

417 INK_0 

420 NEXT_G 

425 FOR E=0_TO 150: NEXT_E- 
430 PRINT AT OR “¡AT RA+1S;" 
“¡AT_P, 05" “¡ar Pri. 0" a 
449 _1F ASPAS) 5410/21 CO ASLIR 
: THEN 60 TO_1009 
450 FOR ES TO 35 STEP £: BEE 













841 5121 =0X0 
JaÚXO LETA 
0x0) LET AGP 


X"¡¿AT P.0; ¿ 
473 IF U=i TH 
476 IF U=2 THEN 
489 IF U=1 THEN 

UGADOR_1:"¿M 
492 








A N 
454 PAUSE S9 
LET_C=C+1 
1015 IF INT (0/21=0+2 THEN. LET Y 


1020 IF INT 10/21 ¿9042 THEN LET 


1030 LET Há="JUGADOR ": FOR H=1 
FO 7: PRINT AT H+5,30/ HS 1H): NEX 


19409 PRINT AT.13.50;U 

1509 LET 01=0 

1510 FOR U=1 TO 4: FOR Y=1 To_13 
1529 IF ASI, Y) ="x" THEN LET Di= 


1530 NEXT Y: NEXT pl] 

1549 IF D1>=52 THEN 60 TO 3098 
1554 0 TO 159 

3295 FOR z=0 TO 2 

3019 FOR_u=9 TO 30 STEP 4 

3929 BEER .01.u 

3930 NEXT Y: 


3059 IF min THEN PRINT BRIGHT 1; 
AT_ 11,5; "JUGADOR 1 HA_GANADO!" 
3059 17 N>M_THEN ERINT BRIGHT 1: 
AT 11,5; “JUGADOR 2 _HA GANADO! * 
3970 IF PRINT BRIGHT 1; 


AT 11,9, "ES U 
2009 INPUT 









E N5:_1F N$= 
4018 IF N$íli= 
HEN RIN 





-28= 


o 5 5 —-.-- 
TS 2088/3PECTRUM 


4080 IF NAC11= UN" OR NE(1)="n" hp 
HEN STOP 

4030 60 TO 4000 

5000 CL5 

s010 PRINT TAB 10; "NAIPES" 

3020 PRINT TAB 10; 

5030 PRINT 

2040 PRINT 

3050 PRINT si: At UD IGUALAR El 
VALOR DE LASCÁRTAS +. - y al 
3050 PRINT, : PRINT_ "CON MAS DEST. 
REZA DUE 5)" RINT ; PRINT "OPO 
NENTE_ 7." 

5070 PRINT 


PEINÍ "UD NECESITAR 
E To: PRINT O" 


¿ PRINT : I 
POSICIONES DE_ TANTAS CARTAS como 
“: PBRINT : NT ILIDADES 
DE GANAR El JUEGO. 
5050 PRINT_: PRINT. “PARA MOVER, E 
L CURSOR, USE 5-1Z0 


3-DER E 
eS PRINT O: PRINT_ "USE '0' PARA 
AR VUELTA LA_CARTA" 
60 PRINT : PRINT "PRESIONE 
DETENER El JUES 
PRINT H0; FLASH 
QUIER TECLA" 


“pr 





2 





D PRINT_AT_21-2% 
INK_1;AT 21-945+ 
LET'i=0: NEXT 6: 
Q RETURN 





á 


me - 
=> 


Figuras de Lissajous 








Este es un programa para graficar 
las figuras de Lissajous, que son 
curvas producidas por la 
superposicion perpendicular de dos 
movimientos oscilatorios. 

X=cos (w1*t) Y=cos(w2*t+d) donde wl 
es el primer generador, wZ es el 
segundo y d el desfasaje. La 
figura sera cerrada si y solo si 
w1/w2 es un numero racional. Si 
ponemos wi=w2=1, las figuras son 
rectas, circulos o elipses, 
dependiendo de d. El programa 
aproxima la verdadera figura de 
Lissajous por medio de una 
poligonal .Esta aproximacion es poco 
notable en cuanto los generadores 
sean chicos, pero se nota para 
generadores grandes. Ocurre 
entonces algo curioso: la figura 
debería ser invariante bajo un 
cambio del tipo vi=k*wi y WE=kAWZ 4 
pero. si k es un numero grande, vi y 
v2 seran grandes, y la figura se 
"astillara" EJEMPLOS: Pruebe con 
los siguientes pares de valores 


1 2 
6 12 
60 120 
120 240 


mA AeAAAAAA< - > EA A AS 


CONFIGURACION BASICA DE UN SISTEMA DE COMPUTACION 


AAA A A A A A A A 


-2 


Las principales unidades de hardware que componen un sistema 
de computacion son: memoria principal, unidad central de proceso y 
dispositivos de Entrada/Salida. 


Unidad central de proceso (C.P.U.): Consta de una unidad de 
control (U.C.) y una unidad aritmetico-logica (U.A.L.). 

UNIDAD DE CONTROL: dispositivo por el cual la maquina puede 
operar automaticamente. Se encarga de leer las instrucciones desde 
la memoria, principal, decodificarlas y activar los circuitos 
necesarios para ejecutar las operaciones definidas por las 
instrucciones.Completada la ejecucion de una instruccion, la 
unidad de control procede a la lectura de la siguiente. 

UNIDAD ARITMETICO-LOGICA: 

posee los circuitos necesarios para realizar las operaciones 
aritmeticas y logicas del computo. Normalmente posee elementos de 
memoria de alta velocidad, llamados registros, para almacenar 
transitoriamente valores usados durante el computo de operaciones. 


MEMORIA LIDA 
NTA 


sa 
AUXILIAR cr 


MEMORIA 
PRINCIPAL 





ENTRADA : Es 
CINTA ¡AAN Hñeta 


MEMORIA PRINCIPAL: se utiliza para almacenar instrucciones y 
datos. 


DISPOSITIVOS DE E/S: los mas fracuentemente usados pueden 
resumirse como sigue! 

CINTAS MAGNETICAS: utilizadas para almacenar masivamente 
grandes volumenes de datos. Su acceso es secuencial. 

DISCOS _MAGNETICOS: utilizados para el almacenamiento masivo 
de datos. Su acceso puede ser secuencial o directo (no es 
necesario leer la informacion precedentepara acceder a un 
determinado dato, como en el caso de las cintas. 

DISPOSITIVOS TERMINALES: son, usualmente, similares a una 
aquina de escribir y utilizan una pantalla de video. 





des 











TS5 1000-1500 


Rinball 










1. 
5 
5 A ES 
+4," 
s ABAJO +++M-ARRIBA 
5 
12 







E 
PRINT as o E 


cta 









5,6;"0 Plis 

140 PRINT AT 5,20 9350 

o pul O E ATi GX MO 
1 PRINT AT 7, LET ASAtar ii INREYBSIM” OR A 
o PR AT 8, Y As2d4) y 
ABIA E 
1 AT 9, 

55 TAB 
2 


3,29;8B 








TAB 27; 


THE 








+ 














me 
ZO 


ATTE 


-49,104: PLOT 132,24: DRA 


E 


5-00 
Te 


F=00 
a] 


[STA T9] 





AZ OO 
emm 
ne e 





CUmUR Do amo da 









GA me 
DUDE e 


Ti AMAN 


uLsTa] 


ezo 






ds 


E 
E 


L 
E 
E 
R 
a 
LE 
LE 
= 


- 
T 
¡-] 
I 


= 


ml 


En] 
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(Defensa de la ciudad) 





PRINT AT 


14 
9 REM BUELe principal 
": BEEP .01 







DIM nsi5.31: F LET 930 Mid (138) 
T A$(i1="000000" N LET a(i)=0 
NEXT 1 IF 0:80 THEN LET ati) 






INK 2 






“PAPER D:- INK 7:.B 
QUER 0: INUERSE 9: FLAS 


BRIGHT 
AT 3, 


INK. 5; BRIG 


FOR jsi TO 7 
Ji "Defensa de 
=1 TO 20: NEXT 

PRINT AT S,5 
1;"Defensa de la 


O YU STEP -1: BEEP 
BRIGHT_1: PLOT 1 
PLOT_ 152,24 










Pp" OR 
,, 50 SUB 3000 











PAUSE S: PRINT_AT_OS,6;" THEN LET x 

de La Ciudad": BEEP .01,- THEN LET x=1 
A , * THEN _LET x=17 
K ICHT 0: PRINT-AT 5 20000" 1 TO 5-LEN ( 


iS ¿"Defensa de 



















a PRINT ES 21, D;_INK_ 2; via 

A "1000: NEXT i 3: "Pun i INK 7; PAPER E 
5 RE_39: FOR T RIGHT "M1"; AT 12,0; Sao" 
AD PRINT AT x,2 AT_13,0;" 

IS FOR ¿=1 7 405 I THEN FOR is1_T0 30: 
y: bs i: 60 TO 190 
TA 

qu 

-- ¿e 15 
R e js1_T0_7 REA b: 
E "CONTROLES" o j 





ma 





FOR 3=5 TO 2 
INK y: a) 
NEXT ¿: NEXT 


NEXT 


















i 


40 







“Es por mula 
A Le] 


era 
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ER 1; PLOT_ 132,24: DRAW Ss 
¡bíi1-24: PLOT 44,24: DRA 
-24: PLOT 212,24 
2611-24: OUER 0: B 





AT. x.v-1 
, LET c=c+1 
5165 INK 7 
2170 RETURN 
2200 REM Fin 
3810 FOR j=1 TO 5: FOR i=1 TO 7; 
SRINT INR i; PAPER 307 19,4:"4 
AA > AAA": NEXT i 
NEXT OVER 1; INK 1; P 
APER_3; 0grEn AT 19,153" 
A > 
5220 F 





m 


.- A Z 
Dn -D0A : 110 












2550 LET issn$li!: bl 
LET hstid=nsti+ii: 4 

1j +: MET hátirl1i=i $ 
di=0%: LETIA=1: 60 TO 2520 

3600 DATA 1,12, BIEN HECHO" Sto 
“sy PUNTUACION ES SUFICIENTEMENT 
E BUENA PARA_ANO- TARSE EN LA LI 
STA MEJO- RES" A, Elec 
cion icial des ",10 
SÍ Ls. 15 

apo 

2301 

202 

3030 IF x>18 THEN 


30 
3059 RETURN 
999 POKE 235658,40: 
To 10 


A veces,al ver un listado de 
un programa exténso se puede 
tener la impresion de que es 
mejor que los demas.Ello puede 
resultar engañoso,pero no es 
este el caso. Es realmente 
bueno y espectacular. 

Imagine que Ud. es el 
comandante en jefe de la 
seguridad de “Cibernia”, Una 
pequeña poblacion de la 
septima galaxia, en la que 
existen nueve bases de lasers 
que defender de los meteoros y 
estos se destruiran a traves 
del taque del laser.FPara ello 
utilice las teclas 0.Z,P e I, 
tal como se le indica por 
pantalla.Para moverse mas 
rapido utilice las teclas 1,2 
cd 3 
NOTAS GRAFICAS: Linea 310, 


345, B155:Graphic H Linea 35, 
8000,- 8210:Graphic B 
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20 UB 2009 El juego Acey que va con este articulo es una 
e al aplicacion de lo que pretendesos aostrarles. “Les 
45 co diresos otra forma de crear tus 
== EN s INT Dies a caracteres (UDS) .Dibuja un cuadriculado de Bx8 y 
5 AND+1I3) + 
290 TR ABS ib2-a) 02 THEN 60 TO arce O E 
55. LET 9=INT ¿RND*13)+1 (2%n) 
_ 55 IF a=d OR b2=d THEN 5 
0 PR 
A EETO 
55 ES o Todo lo que hay-que hacer ahora es sunar 
$0 32+16+8+4=60.Deberas agregar las lineas restantes. 
E cib$ 9000 FOR a=USR*a"TO USR*a"+7 
100 PRI 3.2; 9010 READ user:POKE a,user 
110 de ANT ar 1 el CHAR 5 9020 NEXT a 
y 3 D01;a, E » 
pde e 9050 DATA 60, ' 
1 PRINT AT INK € 
$5; INK_0;"(: Si tenemos otro UDS 
59 9000 FOR a=USR*a" to USR*b*+7 
p=0 OR b=3 THEN Ahora si a jugar +... 


310>PRINT_'TAB 5;"Bien hecho, U 
d. ganos$";2%e 
20 LET 












“Lo siento,uvd 





SRIr ar-1 
NE 0; 1 
- RINT "ld. ha 4 
os 


“Presione al 


IF ed THEN 50_TO 


“ 
e_en 
1 THEN PRINT LINE 


NAS AA IN == AAA AN 


“PROGRAMANDO CON SINTAX 
E OS 


Las declaraciones READ y DATA presentan el siguiente 
problema: se necesitan almacenar todos los datos con el programa, 
por lo tanto cada vez que se desean variar sus valores es 
necesario modificar la sentencia DATA. 

Esto se salva a traves de la declaracion INPUT, que permite 
introducir datos en un programa durante la ejecucion. Con lo cual 
se puede utilizar un mismo programa (sin modificarlo) con 


distintos valores de entrada. 
En el ejemplo dado en la edicion anterior teniamos: 





(Este programa se ejecuta solo para A=10, B=7, D=3, H=4) 


Utilizando la declaracion INPUT tenemos: 


1 INPUT A,B,D,H 





7. 0=/A+B+D + 
3 PRINT OC 


4 3TOP 


Para cualquier valor que le demos a A, B, D, H, obtendremos 


un correspandiente valor para Cc. 


ASIGNACION DE VALOR A UNA VARIABLE 


La sentencia LET que hemos usado en todos los programas (como 
seguramente Ud. lo intuyo ) asigna a la variable que se encuentra 
a la izquierda de la igualdad, el valor de la expresion, variable 
o numero que se encuentra a la derecha. Esta es la instruccion 


E que hace posible que la computadora almacene el valor de cada 


variable. 
Ejemplo: 











AAA AAA A A A A A AA A A A A AA A e. 
A AAA A KA A A A A A A A A AA 


La instruccion 10 hace que la variable A tome el valor 1. 
Pero la instruccion 20 hace que el valor de A se incremente en 1. 
por lo tanto su valor actual es, 2. Ese valor sera impreso en la 
pantalla por la instruccion 30. 

Si Ud. observa la instruccion 20 con ojos matematicos, la 
vera incorrecta pues A es igual a A y no a A+l. Comprendio 
entonces la funcion LET? 


EJECUCION DE UN ENUNCIADO PRINT 


La ejecucion de un enunciado PRINT hace que el valor asignado 
a cada elemento de salida se escriba en la pantalla. 

En muchos problemas es conveniente imprimir cada serie de 
datos tan pronto como se lee. A este proceso se lo suele denominar 
COMPROBACIÓN DE ECO de los datos. Naturalmente, no es necesario 
imprimir los mismos exactamente en el orden en que se leyeron. 
Tambien puede Ud. imprimir mas de un datogala vez, separandolos 
con comas oO bien con puntos y comas. 

Las comas que separan los elementos en una lista de un 
enunciado PRINT, pueden considerarse como ordenes para dividir la 
linea de salida en cinco zonas de quince posiciones cada una, 
comenzando la primera en la posicion de impresion uno. 

La primera posicion de impresion de cada zona se reserva para 
el signo menos si el resultado es negativo, 

Si se coloca una coma luego del ultimo elemento de la lista 
de salida, se impedira el salto de carro luego de la impresion 
provocada por el enunciado PRINT (es decir, continua la impresion 
en la misma linea). 


Un enunciado PRINT que tenga una lista de salida vacia, hace 
que el carro salte una linea. Este enunciado tiene dos usos: 1) 
obtener una linea en blanco en la impresion,,y 2) 
iniciar una nueva linea cuando la lista de impresion precedente 
termino con una coma. 








Un enunciado PRINT puede tene como linea de salida un mensaje 
literal encerrado entre comillas. Las comillas se utilizan para 
indicar que el mensaje que encierran debe imprimirse literalmente. 
El uso mas frecuente de este tipo de mensajes es el de titulo, 
encab o de una linea de salida, 
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IMPRESION COMPACTA 


Cuando en una lista de impresion se usa un punto y coma en 
vez de una coma, se obtiene un espaciamiento distinto y mas 
compacto de la salida. 

Las zonas de una lista de impresion comienzan en la posicion 
de impresion uno, y luego el principio de una nueva zona de 
impresion siempre ocurre desde el principio de la zona anterior, 
dejando 6, 9%, 12 0 15 espacios, dependiendo de la longitud del 
valor precedente impreso en esa misma linea. 





Nueve espacios 





El espaciamiento compacto puede producir un desplazamiento de 
las columas, lo que dificulta la interpretacion de la salida. 

Evidentemente este tipo de impresion debe emplearse con sumo. 
cuidado. 


En un enunciado PRINT s pueden combinar las comas con los ! 
puntos y comas. 
PRINT AT y PRINT TAB Í 
Estas son dos variantes mas de la sentencia PRINT que se | 
utilizan para indicar no solo lo que se va a imprimir sino tambien 
donde se lo vaa imprimir. 
PRINT.AT linea,columa, lo que se desea imprimir 
Con este enunciado se mueve el cursor a la posicion indicada 
por la linea y la columna. y a partir de alli: se imprime lo que 
contiene el tercer parametro. 
PRINT AT 10,20," SINTAX” 
imprime en la linea 10, comenzando en la columma 20, el 
literal SINTAX. 


FRINT TAB columna, lo que se desea imprimir | 


Lo que logramos es mover la posicion del cursor a la columna 
especificada. 


Tenemos dos sentencias mas, relacionadas con PRINT, que son! 
CLS y SCROLL. 
C€CLS: borra la pantalla (el contenido de la memoria no se 
altera). 
SCROLL: mueve toda la pantalla una linea hacia arriba > 
(desapareciendo la primera) y mueve el cursor a la primera 
posicion de la ultima linea. 
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EJERCICIOS 


1) Realice un programa en BASIC que imprima RADIO, 
CIRCUNFERENCIA y AREA como encabezados de columna y luego lea un 
valor para el radio de un circulo desde una declaracion DATA. 
Calcule e imprima los valbres resultantes en las columnas 


correspondientes. 


2) Realice un programa en BASIC que lea los valores de A y B 
de una declaracion de datos. Calcule x=Ax*B e Y=A/B, imprima los 
resultados en la forma indicada en los siguientes bloques: 





columna 10 columna 20 


(La solucion de estos ejercicios se publicara en el proximo 
numero). 
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Este es un pequeño programa que ilustra las E ES dea en 11 

posibilidades graficas de la 15 2068/SPECTRUM Con el 22 REA de Pp KE ñ 

puede ver, como si de un dibujo aninado“se tratase, el 1i4n 53 pee DORE USRNE ARO C1Ens 

movimiento de un hombre al andar. Se desplaza de o Pd a NS ida 

pl » ATA Y ,4,0,9,9,9,2 , 

derecha a izquierda y rasulta realaente gracioso. Muy 0,3 '0:0/0,0,112, 115 y 33,1 

util para incorporar a programas de juegos. ,30,208,155,132 

'Intentelo! Notas graficas: Linea 110 a$="acbd* a = ao AS 
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